home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1986 November & December
/
rerun-1986-11-12.d64
/
comm and-or 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
35 lines
110 rem com and-or 64
120 rem dr. scott m. huse and/or william d. taylor
160 poke53280,15:poke53281,15:print"[147][144]"
170 poke2040,13:forl=832to894:readd:pokel,d:next:v=53248:pokev+21,1:pokev+39,0
180 pokev+29,1:pokev,25:pokev+1,55
190 printtab(17)"com and-or 64":printtab(17)"[163][163][163] [163][163][163] [163][163] [163][163]"
200 input"decimal number (0-255)";d:print""
210 ifd<0ord>255ord<>int(d)thenrun
220 l$=" [194] [194] [194] [194] [194] [194] [194] [194] [194]"
230 l2$="[195][195][195][195][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][179]"
240 printspc(7)"[176][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][174]";
250 print"bit # [194] 7 [194] 6 [194] 5 [194] 4 [194] 3 [194] 2 [194] 1 [194] 0 [194]";
260 printl$"bit val[194]128[194] 64[194] 32[194] 16[194] 8 [194] 4 [194] 2 [194] 1 [194]";:printl2$;
270 printl$" ";:n=d:gosub360
280 printl$"and";:n=255*rnd(1):gosub360:printl$;l2$;
290 printl$" = ";:n=nandd:gosub360
300 printl$"or ";:d=n:n=255*rnd(1):gosub360:printl$;l2$;
310 printl$" = ";:n=dorn:gosub360
320 printspc(7)"[173][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][189]";
330 printspc(13)"press <space bar>..."
340 getk$:ifk$<>" "then340
350 run
360 n=int(n):printspc(4-len(str$(n)))n"[157][194]";
370 forl=7to0step-1:print-((nand2^l)=2^l)"[194]";:next:return
380 print-((nand2^l)=2^l)"[194]";:next
390 return
400 data 127,255,224,127,255,240,120,000
410 data 048,247,240,016,244,144,016,240
420 data 128,016,240,187,144,240,145,016
430 data 241,223,016,112,017,016,112,059
440 data 144,120,000,048,127,255,240,056
450 data 030,112,031,255,240,000,000,000
460 data 127,255,248,114,170,164,057,085
470 data 082,012,047,225,007,255,255,150